#!/usr/bin/perl 
#===============================================================================
#
#         FILE:  test.pl
#
#        USAGE:  ./test.pl 
#
#  DESCRIPTION:  
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Beomsu Chang (bschang), <bschang@phya.yonsei.ac.kr>
#      COMPANY:  
#      VERSION:  1.0
#      CREATED:  2008년 03월 11일 10시 31분 27초 KST
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;

use WebTranslate::Loader;

my $loader = WebTranslate::Loader->new(project=>"perldoc",ver=>'5.10');
my $transman = $loader->get_transmanager('perlsub');
my $podEN = $transman->get_doc('en');
my $podKR = $transman->get_doc('kr');
my $unitList = $transman->get_UnitList();

$transman->makeNewOrignal(Lang=>'en',Ver=>'5.10',Name=>'perlsub',Type=>'pod');

for(@$unitList){
#print $podEN->get_Unit($_);
#print $podKR->get_Unit($_);
}
